www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Conn.asp
<% Const dbtype = 0 Const datapath = "/database/#db.mdb" Const YWNT_TMS_RS = "Adodb.RecordSet" Dim SqlNow DayStr = "'d'" MakeRandomStr = "'n'" SqlNow = "Now()" connstr = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(datapath) Set conn = server.CreateObject("ADODB.Connection") conn.open connstr If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。":Response.End sub connclose() conn.close set conn=nothing end sub %>